home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / arexx / auto / graphselect.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  1.1 KB  |  58 lines
  1. /* Userinterface für GraphShow, V1.0, Jörg Richter */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6. DBtoFront
  7.  
  8. Request "_Ok|_Abbruch" "Erstellen der Daten für Graphreport"
  9. IF RC = 0 THEN EXIT
  10.  
  11. /* Dateinamen festlegen */
  12. GetFileName
  13. IF RC = 5 THEN EXIT
  14. out = result
  15. pos = Lastpos(".",out)
  16. IF pos > 0 THEN
  17.   out = SubStr(out,1,pos-1)
  18. out = out || ".graph"
  19. ok = Open(file,out,W)
  20. IF ok = 0 THEN EXIT
  21.  
  22. /* Allgemeine Angaben */
  23. RequestText "Überschrift"
  24. IF RC = 0 THEN
  25.   nr = WriteLn(file,result)
  26. ELSE
  27.   nr = WriteLn(file,"DataBase")
  28. PickField "Bitte Feld für X-Achsen Beschriftung auswählen ..."
  29. IF RC = 5 THEN
  30.   nr = WriteLn(file,"0")
  31. ELSE
  32.   nr = WriteLn(file,result)
  33.  
  34. Request "_Ok" "Wählen Sie nun nacheinander die Datenfelder"
  35.  
  36. /* Felder festlegen */
  37. col = 0
  38. weiter = 0
  39. DO WHILE weiter = 0
  40.   PickField "Bitte wählen Sie ein Feld aus ..."
  41.   weiter = RC
  42.   IF weiter = 0 THEN DO
  43.     field = result
  44.     RequestText "Legende"
  45.     legende = result
  46.     IF Length(legende) = 0 THEN DO
  47.       GetName $F || field
  48.       legende = result
  49.     END
  50.     col = col + 1
  51.     nr = WriteLn(file,field || " " || col || " " || legende)
  52.   END
  53. END
  54. ok = Close(file)
  55.  
  56. Request "_Ok" "Daten für Graphreport erzeugt."
  57.  
  58.